Public Sub MYSHUTDOWN(ByVal OPERATION As Byte)
        On Error Resume Next
        Select Case OPERATION
            Case 0
                resault = MessageBox.Show("   ", "  ", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
                If resault = vbYes Then
                    Shell("shutdown -s -f -t 0")
                Else
                    Exit Sub
                End If
            Case 1
                resault = MessageBox.Show("     ", "   ", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
                If resault = vbYes Then
                    Shell("shutdown -r -f -t 0")
                Else
                    Exit Sub
                End If
            Case 2
                resault = MessageBox.Show("   Log Off ", "Log Off ", MessageBoxButtons.YesNo, MessageBoxIcon.Stop, MessageBoxDefaultButton.Button2, MessageBoxOptions.RtlReading)
                If resault = vbYes Then
                    Shell("shutdown -l -f -t 0")
                Else
                    Exit Sub
                End If
        End Select
    End Sub
===========================================================================
Imports Microsoft.Win32
Imports Microsoft.VisualBasic
Imports System.Resources.ResourceManager
Imports System.Data.Common
Imports Microsoft.CSharp.CSharpCodeProvider




==================================================
    
     InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages[1];
    
     InputLanguage.CurrentInputLanguage = InputLanguage.InstalledInputLanguages[0];
-----------------------------------------------------------------------------
 
		void SimpleUdp()
		{
			int recv;
			byte[] data=new byte[1024];
			IPEndPoint ipep=new IPEndPoint(IPAddress.Any,5020);
			Socket newsock=new Socket(AddressFamily.InterNetwork,SocketType.Dgram,ProtocolType.Udp);
			newsock.Bind(ipep);
			label2.Text=("Waiting for client...");
			IPEndPoint sender =new IPEndPoint(IPAddress.Any,0);
			EndPoint Remote=(EndPoint)(sender);
			recv=newsock.ReceiveFrom(data,ref Remote);
			label4.Text=("Message Recived from "+Remote.ToString());
			label5.Text=(Encoding.ASCII.GetString(data,0,recv));
			string welcome ="Customer...";
			data=Encoding.ASCII.GetBytes(welcome);
			newsock.SendTo(data,data.Length,SocketFlags.None,Remote);
			while(true)
			{
			data=new byte[1024];
				recv= newsock.ReceiveFrom(data,ref Remote);
				label2.Text=(Encoding.ASCII.GetString(data,0,recv));
				newsock.SendTo(data,recv,SocketFlags.None,Remote);

			
			}


		}
mythr = new Thread(new System.Threading.ThreadStart(SimpleUdp));
			mythr.Start();
---------------------------------------------------------
 
		void SimpleUdp()
	{
			byte[] data=new byte[1024];string input,stringData;
			IPEndPoint ipep =new IPEndPoint(IPAddress.Parse("127.0.0.1"),5020);
			Socket server= new Socket(AddressFamily.InterNetwork,SocketType.Dgram,ProtocolType.Udp);
			string welcome ="Hello are you there?";
			data=Encoding.ASCII.GetBytes(welcome);
			server.SendTo(data,data.Length,SocketFlags.None,ipep);
			IPEndPoint sender=new IPEndPoint(IPAddress.Any,0);
			EndPoint Remote= (EndPoint)(sender);
			data=new byte[1024];
			int recv=server.ReceiveFrom(data,ref Remote);
			label1.Text=("Message received from "+Remote.ToString());
			label2.Text=(Encoding.ASCII.GetString(data,0,recv));
			while(true)
			{
			
				if(textBox1.Text=="exit")
					break;
				server.SendTo(Encoding.ASCII.GetBytes(textBox1.Text),Remote);
				data=new byte[1024];
				recv=server.ReceiveFrom(data,ref Remote);
				stringData=Encoding.ASCII.GetString(data,0,recv);
				textBox1.Text=stringData;
			
			}
			MessageBox.Show("Stoping client");
			server.Close();

		
	}
